home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / kcl / akcl / kcl.lha / lsp / top.data < prev    next >
Text File  |  1987-06-03  |  7KB  |  316 lines
  1.           
  2. #(
  3. #!
  4. (lisp::in-package 'user::lisp)
  5. #!
  6. (lisp::export '(lisp::+ lisp::++ lisp::+++ lisp::- lisp::* lisp::** lisp::*** lisp::/ lisp::// lisp::///))
  7. #!
  8. (lisp::export '(lisp::break lisp::warn))
  9. #!
  10. (lisp::export 'lisp::*break-on-warnings*)
  11. #!
  12. (lisp::export 'lisp::*break-enable*)
  13. #!
  14. (lisp::in-package 'lisp::system)
  15. #!
  16. (lisp::export 'system::*break-readtable*)
  17. #!
  18. (lisp::export '(system::vs system::ihs-vs system::ihs-fun system::frs-vs system::frs-bds system::frs-ihs system::bds-var system::bds-val system::super-go))
  19. lisp::+
  20. lisp::++
  21. lisp::+++
  22. lisp::-
  23. lisp::*
  24. lisp::**
  25. lisp::***
  26. lisp::/
  27. lisp:://
  28. lisp::///
  29. system::*eof*
  30. system::*lisp-initialized*
  31. system::*quit-tag*
  32. system::*quit-tags*
  33. system::*break-level*
  34. system::*break-env*
  35. 1
  36. system::*ihs-base*
  37. system::*ihs-top*
  38. system::*current-ihs*
  39. 0
  40. system::*frs-base*
  41. system::*frs-top*
  42. lisp::*break-enable*
  43. ""
  44. system::*break-message*
  45. lisp::*break-on-warnings*
  46. system::*break-readtable*
  47. system::*break-hidden-functions*
  48. system::system
  49. system::*break-hidden-packages*
  50. "init.lsp"
  51. "init.lsp"
  52. "~%~a>"
  53. lisp::*package*
  54. system::user
  55. ""
  56. lisp::*standard-input*
  57. lisp::*error-output*
  58. lisp::*print-level*
  59. 4
  60. lisp::*print-length*
  61. lisp::*print-case*
  62. :upcase
  63. "~&Warning: "
  64. system::*indent-formatted-output*
  65. lisp::*print-pretty*
  66. "~&Correctable error: "
  67. "Signalled by ~:@(~S~).~%"
  68. "Signalled by an anonymous function.~%"
  69. "~&If continued: "
  70. "~?~&"
  71. "~&Error: "
  72. "Error signalled by ~:@(~S~).~%"
  73. "Error signalled by an anonymous function.~%"
  74. "~&Break: "
  75. "~&Break.~%"
  76. ""
  77. "Console interrupt."
  78. "Continues execution."
  79. "Console interrupt -- cannot continue."
  80. lisp::*readtable*
  81. lisp::*read-suppress*
  82. lisp::*debug-io*
  83. "~%~a>~{~*>~}"
  84. ""
  85. :r
  86. :resume
  87. system::break-command
  88. "~&~S is undefined break command.~%"
  89. "Broken at ~:@(~S~).~:[  Type :H for Help.~;~]"
  90. "Local variables: ~#[none~;~S~;~S and ~S~
  91.          ~:;~@{~#[~;and ~]~S~^, ~}~]."
  92. "Local functions: ~#[none~;~S~;~S and ~S~
  93.          ~:;~@{~#[~;and ~]~S~^, ~}~]."
  94. "Block names: ~#[none~;~S~;~S and ~S~
  95.          ~:;~@{~#[~;and ~]~S~^, ~}~]."
  96. lisp::block
  97. "Tags: ~#[none~;~S~;~S and ~S~
  98.          ~:;~@{~#[~;and ~]~S~^, ~}~]."
  99. lisp::tag
  100. "~&VS[~d]: ~s"
  101. "~&BDS[~d]: ~s = ~s"
  102. :stream
  103. :escape
  104. :case
  105. :downcase
  106. 2
  107. "~&~:[  ~;@ ~]IHS[~d]: ~s ---> VS[~d]"
  108. lisp::lambda
  109. (:zombi)
  110. :zombi
  111. "~&    FRS[~d]: ~s ---> IHS[~d],VS[~d],BDS[~d]"
  112. :key
  113. :test
  114. lisp::tagbody
  115. :test-not
  116. (lisp::***)
  117. system::block/tagbody
  118. lisp::catch
  119. lisp::quote
  120. (lisp::unwind-protect lisp::***)
  121. system::system-internal-catcher
  122. "Broken at ~:@(~S~)."
  123. "~&Top level."
  124. lisp::eval
  125. lisp::evalhook
  126. lisp::lambda-closure
  127. "~s is invalid tagbody identification for ~s."
  128. "Search for ~a failed.~%"
  129. "Search for ~a failed.~%"
  130. "~S: ~S~%"
  131. :b
  132. system::simple-backtrace
  133. :backtrace
  134. :bds
  135. system::break-bds
  136. :blocks
  137. system::break-blocks
  138. :bs
  139. system::break-backward-search-stack
  140. :c
  141. system::break-current
  142. :current
  143. :fs
  144. system::break-forward-search-stack
  145. :functions
  146. system::break-functions
  147. :go
  148. system::break-go
  149. :h
  150. system::break-help
  151. :help
  152. :hd
  153. system::break-hide
  154. :hdp
  155. system::break-hide-package
  156. :hh
  157. system::break-help-help
  158. :hide
  159. :hide-package
  160. :hs
  161. system::break-help-stack-funs
  162. :ihs
  163. system::backtrace
  164. :l
  165. system::break-local
  166. :lb
  167. :lf
  168. :local
  169. :lt
  170. system::break-tags
  171. :lv
  172. system::break-variables
  173. :m
  174. system::break-message
  175. :n
  176. system::break-next
  177. :next
  178. :p
  179. system::break-previous
  180. :previous
  181. :q
  182. system::break-quit
  183. :quit
  184. :s
  185. :tags
  186. :uh
  187. system::break-unhide
  188. :uha
  189. system::break-unhide-all
  190. :uhp
  191. system::break-unhide-package
  192. :unhide
  193. :unhide-package
  194. :v
  195. :variable
  196. :vs
  197. system::break-vs
  198. :vv
  199. system::break-variables-values
  200. "
  201. Break-loop Command Summary:
  202.  
  203. :p (Previous)        :n (Next)        :go (GO)    
  204. :m (Message)        :c (Current)
  205. :h (Help)        :hh (Help Help)        :hs (Help Stack functions)
  206. :q (Quit)        :r (Resume or Return)
  207. :b (Backtrace)        :l (Local value)
  208. :vs (Value Stack)    :bds (BinD Stack)    :ihs (Invocation Hist. Stack)
  209. :lv (Local Variables)    :v (= :lv)        :lf (Local Functions)
  210. :lb (Blocks)        :lt (Tags)
  211. :hd (HiDE)        :hdp (HiDe Packages)
  212. :uha (UnHide All)     :uh (UnHide)        :uhp (UnHide Packages)
  213. :bs (Backward Search)    :s (= :bs)        :fs (Forward Search)
  214. :vv (Variables Values)
  215.  
  216. Type :HH for more details.
  217. "
  218. "
  219. Break-loop Commands:
  220.  
  221. :p [i]        Go to the i-th previous function.  i defaults to 1.
  222. :n [i]        Go to the i-the next function.  i defaults to 1.
  223. :go i        Go to the function at IHS[i].
  224. :m        Print the error message.
  225. :c        Show the current function.
  226. :h        Show the break command summary.
  227. :hh        Show this message.
  228. :hs        Show stack-accessing functions.
  229. :q [i]        Return to the level i break-level (or top-level if i = 0).
  230.         i defaults to 0.
  231. :r        Return to the caller of break-level.
  232. :b        Print simple backtrace.
  233. :l [i]        Print i-th local value.
  234. :vs [from [to]]    Show values in the stack between VS[from] to VS[to].
  235.         'from' defaults to 0 and 'to' defaults to positive infinity.
  236. :bds var-list    Show previous bindings of the variables.  'var-list' may be
  237.         a symbol or a list of symbols.
  238. :ihs [from [to]] Print backtrace between IHS[from] to IHS[to].
  239.         'from' defaults to 0 and 'to' defaults to positive infinity.
  240. :lv        Show local variables.
  241. :lf        Show local functions.
  242. :lb        Show block names.
  243. :lt        Show tags.
  244. :hd symbol    Hide the function named by the specified symbol.
  245. :hdp package    Hide functions in the specified package.
  246. :uha        Unhide all functions.
  247. :uh symbol    Unhide the function named by the specified symbol.
  248. :uhp package    Unhide functions in the specified package.
  249. "
  250. "
  251. Use the following functions to directly access KCL stacks.
  252.  
  253. (SI:VS i)    Returns the i-th entity in VS.
  254. (SI:IHS-VS i)    Returns the VS index of the i-th entity in IHS.
  255. (SI:IHS-FUN i)    Returns the function of the i-th entity in IHS.
  256. (SI:FRS-VS i)    Returns the VS index of the i-th entity in FRS.
  257. (SI:FRS-BDS i)    Returns the BDS index of the i-th entity in FRS.
  258. (SI:FRS-IHS i)    Returns the IHS index of the i-th entity in FRS.
  259. (SI:BDS-VAR i)    Returns the symbol of the i-th entity in BDS.
  260. (SI:BDS-VAL i)    Returns the value of the i-th entity in BDS.
  261.  
  262. (SI:SUPER-GO i tag)
  263.     Jumps to the specified tag established by the TAGBODY frame at
  264.     FRS[i].  Both arguments are evaluated.  If FRS[i] happens to be
  265.     a non-TAGBODY frame, then (THROW (SI:IHS-TAG i) (VALUES)) is
  266.     performed.
  267.  
  268. Note that these functions are named by external symbols in the SYSTEM
  269. package.  For the KCL stacks, refer to Appendix B of the KCL Report.
  270. "
  271. system::top-level
  272. lisp::warn
  273. system::universal-error-handler
  274. lisp::break
  275. system::terminal-interrupt
  276. system::break-level
  277. system::break-call
  278. system::set-current
  279. system::print-ihs
  280. system::print-frs
  281. system::frs-kind
  282. system::ihs-visible
  283. system::ihs-fname
  284. system::set-env
  285. system::ihs-compiled-p
  286. system::list-delq
  287. system::super-go
  288. lisp::read
  289. lisp::prin1
  290. system::ihs-top
  291. system::sch-frs-base
  292. system::frs-top
  293. system::ihs-vs
  294. system::vs
  295. system::frs-bds
  296. system::bds-var
  297. system::bds-val
  298. system::frs-ihs
  299. system::ihs-fun
  300. lisp::lambda-block
  301. lisp::lambda-block-closure
  302. system::frs-vs
  303. system::frs-class
  304. :catch
  305. system::spicep
  306. system::frs-tag
  307. lisp::caddr
  308. lisp::eq
  309. lisp::remove
  310. :protect
  311. system::compiled-function-name
  312. system::internal-super-go
  313. lisp::search
  314. lisp::char-equal
  315. )
  316.